home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 42.asm < prev    next >
Assembly Source File  |  2000-04-02  |  805b  |  33 lines
  1. * 42.asm     Demonstrate TLassdev       version 0.00      1.9.97
  2.  
  3.  
  4.  INCLUDE 'Front.i'
  5.  
  6. ; This test if an assign exists, without putting up an annoying
  7. ; system requester if it doesn't. If it does exist, it tells you
  8. ; what it is (primarily) assigned to.
  9.  
  10.  
  11. strings: dc.b 0
  12.  dc.b 'LIBS',0 ;1   (note - do NOT put trailing :)
  13.  dc.b 'EH?? LIBS: Doesn''t exist?? Impossible!!',0 ;2
  14.  dc.b $0C,'LIBS: is assigned to:',0 ;3
  15.  dc.b $0A,'(Press <return> to acknowledge)',0 ;4
  16.  
  17.  ds.w 0
  18.  
  19.  
  20. * demonstrate TLAssdev
  21. Program:
  22.  TLoutstr #3     ;string 3 to CLI
  23.  TLstrbuf #1     ;'LIBS' to buffer
  24.  TLassdev        ;get its assign
  25.  bne.s Pr_report ;go if ok
  26.  TLstrbuf #2     ;else, report string 2 (can't happen?)
  27.  
  28. Pr_report:
  29.  TLoutput        ;put assign
  30.  TLoutstr #4     ;send string 4
  31.  TLinput         ;get acknowledge
  32.  rts
  33.